BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/K-L/LucaCalc v1.0.cpt/LucaCalc/card_2884.txt

Text File | 1991-12-05 | 17.9 KB | 902 lines

-- card: 2884 from stack: in
-- bmap block id: 3845
-- flags: 0000
-- background id: 2560
-- name:
----- HyperTalk script -----
on opencard
  global cs
  put "n" into cs
end opencard


-- part 1 (field)
-- low flags: 04
-- high flags: 0000
-- rect: left=13 top=8 right=28 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2302
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Screen


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=7 top=202 right=225 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global nownum
  put "1" into nownum
  number
end mouseUp


-- part 3 (field)
-- low flags: 84
-- high flags: 0001
-- rect: left=1 top=56 right=71 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: operations


-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=50 top=202 right=225 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  global nownum
  put "2" into nownum
  number
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=94 top=202 right=225 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  global nownum
  put "3" into nownum
  number
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=7 top=172 right=195 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 4
----- HyperTalk script -----
on mouseUp
  global nownum
  put "4" into nownum
  number
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=50 top=172 right=195 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 5
----- HyperTalk script -----
on mouseUp
  global nownum
  put "5" into nownum
  number
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=94 top=172 right=195 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 6
----- HyperTalk script -----
on mouseUp
  global nownum
  put "6" into nownum
  number
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=94 top=142 right=165 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 9
----- HyperTalk script -----
on mouseUp
  global nownum
  put "9" into nownum
  number
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=50 top=142 right=165 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 8
----- HyperTalk script -----
on mouseUp
  global nownum
  put "8" into nownum
  number
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=7 top=142 right=165 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 7
----- HyperTalk script -----
on mouseUp
  global nownum
  put "7" into nownum
  number
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=7 top=229 right=252 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0
----- HyperTalk script -----
on mouseUp
  global cs
  if cs = "y" then
    if card field "screen" ≠ empty then
      put empty into card field "Screen"
      put 0 after card field "Screen"
      put "n"into cs
      put 0 after card field "operations"
    end if
  end if
  if cs = "n" then
    if card field "screen" ≠ empty then
      put 0 after card field "Screen"
      put 0 after card field "operations"
    end if
  end if
end mouseUp


-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=50 top=229 right=252 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: .
----- HyperTalk script -----
on mouseUp
  global cs
  if cs = "y" then
    if card field "screen" ≠ empty then
      if card field "screen" contains "." then
      else
        put empty into card field "Screen"
        put . after card field "Screen"
        put "n"into cs
        put . after card field "operations"
      end if
    end if
  end if
  if cs = "n" then
    if card field "screen" ≠ empty then
      if card field "screen" contains "." then
      else
        put . after card field "Screen"
        put . after card field "operations"
      end if
    end if
  end if
end mouseUp


-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=163 top=229 right=252 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AC
----- HyperTalk script -----
on mouseUp
  Global cs
  put empty into card field "screen"
  put empty into card field "operations"
  put "n" into cs
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=94 top=229 right=252 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: π
----- HyperTalk script -----
on mouseUp
  global cs
  put pi into card field "screen"
  put pi after card field "operations"
  put "y" into cs
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=137 top=229 right=252 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: =
----- HyperTalk script -----
on mouseUp
  global cs
  put the value of card field "operations" into card field "screen"
  put the value of card field "operations" into card field "operations"
  put "y" into cs
end mouseUp


-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=137 top=202 right=225 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: +
----- HyperTalk script -----
on mouseUp
  global nowop
  put "+" into nowop
  operation
end mouseUp


-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=163 top=202 right=225 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: -
----- HyperTalk script -----
on mouseUp
  global nowop
  put "-" into nowop
  operation
end mouseUp


-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=137 top=172 right=195 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: x
----- HyperTalk script -----
on mouseUp
  global nowop
  put "*" into nowop
  operation
end mouseUp


-- part 23 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=163 top=172 right=195 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ÷
----- HyperTalk script -----
on mouseUp
  global nowop
  put "/" into nowop
  operation
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=137 top=142 right=165 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: M+
----- HyperTalk script -----
on mouseUp
  global memdel
  global mem
  global cs
  put card field "screen" into mem
  put "y" into cs
  put "n" into memdel
end mouseUp


-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=163 top=142 right=165 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MR
----- HyperTalk script -----
on mouseUp
  global mem
  global memdel
  global cs
  if memdel = "y" then
    put empty into mem
    put "n" into memdel
    exit mouseup
  end if
  put mem into card field "screen"
  put mem after card field "operations"
  put "y" into cs
  put "y" into memdel
end mouseUp


-- part 26 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=4 top=122 right=138 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: [(--
----- HyperTalk script -----
on mouseUp
  global cs
  put "(" after card field "operations"
  put "y" into cs
end mouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=37 top=122 right=138 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: --)]
----- HyperTalk script -----
on mouseUp
  global cs
  put ")" after card field "operations"
  put "y" into cs
end mouseUp


-- part 28 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=65 top=122 right=138 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sin
----- HyperTalk script -----
on mouseUp
  global cs
  put empty into card field "screen"
  put "sin" after card field "operations"
  put "sine" after card field "screen"
  put "y" into cs
end mouseUp


-- part 29 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=93 top=122 right=138 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cos
----- HyperTalk script -----
on mouseUp
  global cs
  put empty into card field "screen"
  put "cos" after card field "operations"
  put "cosine" after card field "screen"
  put "y" into cs
end mouseUp


-- part 30 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=121 top=122 right=138 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tan
----- HyperTalk script -----
on mouseUp
  global cs
  put empty into card field "screen"
  put "tan" after card field "operations"
  put "tangent" after card field "screen"
  put "y" into cs
end mouseUp


-- part 31 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=149 top=122 right=138 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: atan
----- HyperTalk script -----
on mouseUp
  global cs
  put empty into card field "screen"
  put "atan" after card field "operations"
  put "arc tangent" after card field "screen"
  put "y" into cs
end mouseUp


-- part 33 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=4 top=98 right=114 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: √
----- HyperTalk script -----
on mouseUp
  global cs
  put empty into card field "screen"
  put "sqrt" after card field "operations"
  put "y" into cs
end mouseUp


-- part 36 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=37 top=98 right=114 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr1
----- HyperTalk script -----
on mouseUp
  global pr
  put 1 into pr
  power
end mouseUp


-- part 37 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=65 top=98 right=114 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr2
----- HyperTalk script -----
on mouseUp
  global pr
  put 2 into pr
  power
end mouseUp


-- part 38 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=93 top=98 right=114 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr3
----- HyperTalk script -----
on mouseUp
  global pr
  put 3 into pr
  power
end mouseUp


-- part 39 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=121 top=98 right=114 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr4
----- HyperTalk script -----
on mouseUp
  global pr
  put 4 into pr
  power
end mouseUp


-- part 40 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=121 top=80 right=96 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr9
----- HyperTalk script -----
on mouseUp
  global pr
  put 9 into pr
  power
end mouseUp


-- part 41 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=93 top=80 right=96 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr8
----- HyperTalk script -----
on mouseUp
  global pr
  put 8 into pr
  power
end mouseUp


-- part 42 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=65 top=80 right=96 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr7
----- HyperTalk script -----
on mouseUp
  global pr
  put 7 into pr
  power
end mouseUp


-- part 43 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=37 top=80 right=96 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr6
----- HyperTalk script -----
on mouseUp
  global pr
  put 6 into pr
  power
end mouseUp


-- part 44 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=149 top=98 right=114 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr5
----- HyperTalk script -----
on mouseUp
  global pr
  put 5 into pr
  power
end mouseUp


-- part 45 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=149 top=80 right=96 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pr10
----- HyperTalk script -----
on mouseUp
  global pr
  put 10 into pr
  power
end mouseUp


-- part 46 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=4 top=80 right=96 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: !
----- HyperTalk script -----
on mouseUp
  show card field "working..."
  global a
  global cs
  put 0 into a
  repeat card field "screen"-1
    add 1 to a
    put "*" & card field "screen"-a after card field "Operations"
  end repeat
  put "y" into cs
  hide card field "working..."
end mouseUp


-- part 48 (field)
-- low flags: 84
-- high flags: 0002
-- rect: left=126 top=57 right=74 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Working...


-- part 49 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=4 top=57 right=79 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 389 / 389
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ?
----- HyperTalk script -----
on mouseUp
  play boing
  visual venetian blinds fast
  go to next card
  visual venetian blinds fast
  go back
  visual venetian blinds fast
  go to next card
end mouseUp


-- part contents for card part 48
----- text -----
Working...